home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.11 Nov 88 / IAC / Editor Stuff / Editor.r < prev    next >
Encoding:
Text File  |  1988-09-18  |  9.3 KB  |  446 lines  |  [TEXT/MPS ]
  1. /*    resource file for the test editor */ 
  2.  
  3. #include "Types.r"
  4.  
  5. /* --- The Menus --- */
  6.  
  7. resource 'MENU' (128, "Apple", preload) {
  8.     128,
  9.     textMenuProc,
  10.     0x7FFFFFFD,    /* Disable item #2 */
  11.     enabled,
  12.     apple,
  13.     {
  14.         "About Sample…",
  15.             noicon, nokey, nomark, plain;
  16.         "-",
  17.             noicon, nokey, nomark, plain
  18.     }
  19. };
  20.  
  21. resource 'MENU' (129, "File", preload) {
  22.     129,
  23.     textMenuProc,
  24.     0x2F,
  25.     enabled,
  26.     "File",
  27.     {
  28.         "New",
  29.             noicon, "N", nomark, plain;        
  30.         "Open",
  31.             noicon, "O", nomark, plain;        
  32.         "Close",
  33.             noicon, noKey, nomark, plain;        
  34.         "Save",
  35.             noicon, "S", nomark, plain;        
  36.         "-",
  37.             noicon, nokey, nomark, plain;
  38.         "Quit",
  39.             noicon, "Q", nomark, plain
  40.     }
  41. };
  42.  
  43. resource 'MENU' (130, "Edit", preload) {
  44.     130, textMenuProc,
  45.     0x7FFFFFBD,    /* Disable items #1 & #2 */
  46.     enabled, "Edit",
  47.      {
  48.         "Undo",
  49.             noicon, "Z", nomark, plain;
  50.         "-",
  51.             noicon, nokey, nomark, plain;
  52.         "Cut",
  53.             noicon, "X", nomark, plain;
  54.         "Copy",
  55.             noicon, "C", nomark, plain;
  56.         "Paste",
  57.             noicon, "V", nomark, plain;
  58.         "Clear",
  59.             noicon, nokey, nomark, plain;
  60.         "-",
  61.             noicon, nokey, nomark, plain;
  62.         "Hot Copy",
  63.             noicon, nokey, nomark, plain;
  64.         "Hot Paste",
  65.             noicon, nokey, nomark, plain;
  66.         "Remove Link",
  67.             noicon, nokey, nomark, plain
  68.     }
  69. };
  70.  
  71. resource 'MENU' (131,"OptionsMenu",Preload) {
  72. 131,            /* ID */
  73. textMenuProc,    /* menu def proc ID */
  74. 0B11,                    /* item flags */
  75. enabled,            /* menu enable */
  76. "Options",
  77.     { "Show links",
  78.       noIcon,noKey,noMark,plain;
  79.         "Show link info",
  80.       noIcon,noKey,noMark,plain
  81.     }
  82. };
  83.  
  84. resource 'MENU' (132,"FontMenu",Preload) {
  85. 132,            /* ID */
  86. textMenuProc,    /* menu def proc ID */
  87. allEnabled,        /* item flags */
  88. enabled,            /* menu enable */
  89. "Font",
  90. { 
  91. }
  92. };
  93.  
  94. resource 'MENU' (133,"Sizes",Preload) {
  95. 133,            /* ID */
  96. textMenuProc,    /* menu def proc ID */
  97. 0B11111011111111,        /* item flags */
  98. enabled,            /* menu enable */
  99. "Size",
  100.     { "9",
  101.       noIcon,noKey,noMark,plain;
  102.       "10",
  103.       noIcon,noKey,noMark,plain;
  104.       "12",
  105.       noIcon,noKey,noMark,plain;
  106.       "14",
  107.       noIcon,noKey,noMark,plain;
  108.       "16",
  109.       noIcon,noKey,noMark,plain;
  110.       "20",
  111.       noIcon,noKey,noMark,plain;
  112.       "24",
  113.       noIcon,noKey,noMark,plain;
  114.       "28",
  115.       noIcon,noKey,noMark,plain;
  116.       "-",
  117.       noIcon,noKey,noMark,plain;
  118.       "Bold",
  119.       noIcon,"B",noMark,plain;
  120.       "Italic",
  121.       noIcon,"I",noMark,plain;
  122.       "Underlined",
  123.       noIcon,"U",noMark,plain;
  124.       "Outline",
  125.       noIcon,noKey,noMark,plain;
  126.       "Shadow",
  127.       noIcon,noKey,noMark,plain
  128.     }
  129. };
  130.  
  131. resource 'MENU' (134,"Links",Preload) {
  132. 134,            /* ID */
  133. textMenuProc,    /* menu def proc ID */
  134. 0xFFFFFFFF,        /* item flags */
  135. enabled,            /* menu enable */
  136. "Links",
  137. { 
  138. }
  139. };
  140.  
  141. /* --- The Windows --- */
  142.  
  143. resource 'WIND' (128,"a Window") {
  144.     {64, 60, 314, 460},
  145.     documentProc,
  146.     visible,
  147.     noGoAway,
  148.     0x0,
  149.     "Untitled"
  150. };
  151.  
  152. /* --- The Alerts/Dialogs (with DITLs) --- */
  153.  
  154. /* 128 is the about box */
  155. /* 129 is the link info box */
  156.  
  157. /* 256 is "No IAC" error box */
  158. /* 257 is the IAC error alert */
  159. /* 258 is the "Not in any extents" alert */
  160. /* 259 is the "Sure you want to kill this extent?" Alert */
  161. /* 260 is the "Save changes?" alert */
  162.  
  163. resource 'DLOG' (128,Purgeable) {
  164.     {61, 80, 301, 420},
  165.     altDBoxProc,
  166.     visible,
  167.     noGoAway,
  168.     0x0,
  169.     128,
  170.     "x"
  171. };
  172.  
  173. resource 'DITL' (128,Purgeable) {
  174.     {    
  175.         {200, 110, 225, 230},        /* [1] */
  176.         Button {enabled, "Wonderful!"},
  177.         {15, 65, 31, 275},            /* [2] */
  178.         StaticText {disabled,"The Great IAC Sample Program!"},
  179.         {40, 20, 56, 320},            /* [3] */
  180.         StaticText {disabled,"This copy: ^0"},
  181.         {60, 20, 124, 320},            /* [4] */
  182.         StaticText {disabled,"This sample is designed to show off the "
  183.             "var- ious capabilities of the  SAWS Inter- Application "
  184.             "Communications Driver. It may be used freely. Send questions, etc"
  185.             ", to: "},
  186.         {124, 119, 140, 219},        /* [5] */
  187.         StaticText {disabled,"Frank Alviani"},
  188.         {140, 120, 188, 220},        /* [6] */
  189.         StaticText {disabled,"P.O. Box 8744 Waukegan Ill 60079"}
  190.     }
  191. };
  192.  
  193.  
  194. resource 'DLOG' (129,"link info",Purgeable) {
  195.     {80, 86, 300, 426},
  196.     altDBoxProc,
  197.     visible,
  198.     noGoAway,
  199.     0x0,
  200.     129,
  201.     ""
  202. };
  203.  
  204. resource 'DITL' (129,Purgeable) {
  205.     {    {185, 130, 210, 210},        /* [1] */
  206.         Button {enabled,"OK!"},
  207.         {10, 20, 26, 320},            /* [2] */
  208.         StaticText {disabled,"Information About Current Registered Links"},
  209.         {35, 300, 170, 316},        /* [3] */
  210.         UserItem {enabled},
  211.         {35, 20, 170, 300},            /* [4] */
  212.         UserItem {disabled}
  213.     }
  214. };
  215.  
  216. /* Scroll bar for link-info dlog */
  217. resource 'CNTL' (129,Purgeable) {
  218.   {35,300,170,316},
  219.   0,    /* value */
  220.   visible,
  221.   0,    /* max */
  222.   0,    /* min */
  223.   scrollBarProc,    /* type */
  224.   0,    /* refcon */
  225.   "x"
  226. };
  227.  
  228.  
  229. resource 'ALRT' (256,Purgeable) {
  230.     {100, 100, 220, 400},
  231.     256,
  232.     {    OK, visible, sound1,    /* [1] */
  233.         OK, visible, sound1,    /* [2] */
  234.         OK, visible, sound1,    /* [3] */
  235.         OK, visible, sound1        /* [4] */
  236.     }
  237. };
  238.  
  239. resource 'DITL' (256,Purgeable) {
  240.     {    {90, 200, 110, 280},    /* [1] */
  241.         Button {enabled, "Rats!" },
  242.         {20, 72, 84, 280},        /* [2] */
  243.         StaticText {disabled,
  244.             "Unfortunately, we cannot find ^0. "
  245.             "Without it, there is no point in going on. Farewell..."};
  246.         {94,20,110,150},            /* [3] */
  247.         StaticText {disabled, "ID=^2"}
  248.     }
  249. };
  250.  
  251. resource 'ALRT' (257,Purgeable) {
  252.     {100, 100, 240, 400},
  253.     257,
  254.     {    OK, visible, sound1,    /* [1] */
  255.         OK, visible, sound1,    /* [2] */
  256.         OK, visible, sound1,    /* [3] */
  257.         OK, visible, sound1        /* [4] */
  258.     }
  259. };
  260.  
  261. resource 'DITL' (257,Purgeable) {
  262.     {    {105, 110, 130, 190},        /* [1] */
  263.         Button {enabled,"Rats!"},
  264.         {10, 67, 90, 280},            /* [2] */
  265.         StaticText {disabled,"IAC Error ^0 was encountered during the "
  266.             "^1 operation, which was not completed. Sorry!"}
  267.     }
  268. };
  269.  
  270.  
  271. resource 'ALRT' (258,Purgeable) {
  272.     {100, 100, 200, 400},
  273.     258,
  274.     {    OK, visible, sound1,    /* [1] */
  275.         OK, visible, sound1,    /* [2] */
  276.         OK, visible, sound1,    /* [3] */
  277.         OK, visible, sound1        /* [4] */
  278.     }
  279. };
  280.  
  281. resource 'DITL' (258,Purgeable) {
  282.     {    {70, 110, 95, 190},        /* [1] */
  283.         Button {enabled,"Rats!"},
  284.         {10, 62, 58, 290},        /* [2] */
  285.         StaticText {disabled,"Sorry! You are not in any extent."
  286.             "Therefore no link can be severed."}
  287.     }
  288. };
  289.  
  290.  
  291. resource 'ALRT' (259,Purgeable) {
  292.     {100, 100, 200, 400},
  293.     259,
  294.     {    OK, visible, sound1,    /* [1] */
  295.         OK, visible, sound1,    /* [2] */
  296.         OK, visible, sound1,    /* [3] */
  297.         OK, visible, sound1        /* [4] */
  298.     }
  299. };
  300.  
  301. resource 'DITL' (259,Purgeable) {
  302.     {    {65, 110, 90, 190},        /* [1] */
  303.         Button {enabled,"Rats!"},
  304.         {10, 62, 42, 290},        /* [2] */
  305.         StaticText {disabled,"Are you SURE you want to  remove this "
  306.             "link? This cannot be undone."}
  307.     }
  308. };
  309.  
  310. resource 'ALRT' (260, Purgeable) {
  311.     {100, 100, 250, 400},
  312.     260,
  313.     {    OK, visible, sound1,    /* [1] */
  314.         OK, visible, sound1,    /* [2] */
  315.         OK, visible, sound1,    /* [3] */
  316.         OK, visible, sound1        /* [4] */
  317.     }
  318. };
  319.  
  320. resource 'DITL' (260, Purgeable) {
  321.     {    {80, 15, 105, 95},        /* [1] */
  322.         Button {enabled,"Save"},
  323.         {115, 15, 140, 95},        /* [2] */
  324.         Button {enabled,"Cancel"},
  325.         {116, 205, 141, 285},    /* [3] */
  326.         Button {enabled,"No"},
  327.         {15, 75, 63, 285},        /* [4] */
  328.         StaticText {disabled,"Do you want to save the changes made to ^0?"}
  329.     }
  330. };
  331.  
  332.  
  333. resource 'ALRT' (261,Purgeable) {
  334.     {100, 100, 200, 400},
  335.     261,
  336.     {    OK, visible, sound1,    /* [1] */
  337.         OK, visible, sound1,    /* [2] */
  338.         OK, visible, sound1,    /* [3] */
  339.         OK, visible, sound1        /* [4] */
  340.     }
  341. };
  342.  
  343. resource 'DITL' (261,Purgeable) {
  344.     {    {70, 110, 95, 190},        /* [1] */
  345.         Button {enabled,"OK"},
  346.         {10, 62, 58, 290},        /* [2] */
  347.         StaticText {disabled,"Doc_ID = ^0 hatCheck = ^1"}
  348.     }
  349. };
  350.  
  351.  
  352. /* --- Miscellaneous Resources --- */
  353.  
  354. resource 'SIZE' (-1) {
  355.         dontSaveScreen,
  356.         acceptSuspendResumeEvents,
  357.         disableOptionSwitch,
  358.         canBackground,
  359.         multiFinderAware,
  360.         98304,                                        /* preferrred size = 128K - 32k */
  361.         98304                                            /* min size = 128K - 32k */
  362. };
  363.  
  364. type 'IAC1' as 'STR ';
  365.  
  366. resource 'IAC1' (0) {
  367.     "Sample IAC Application - Version 1.0ß1"
  368. };
  369.  
  370. resource 'ICN#' (128, Purgeable) {
  371.     {    /* array: 2 elements */
  372.         /* [1] */
  373.         $"0001 0400 0002 8A00 0004 5100 0008 2080"
  374.         $"0010 1140 0022 08A0 0044 BFD0 0089 C288"
  375.         $"0101 C104 02A4 9082 054C 2041 080E 4020"
  376.         $"113C 8010 2249 0008 44A0 3F04 8124 4082"
  377.         $"4248 8041 2093 3022 1123 C814 084E 7F8F"
  378.         $"0412 B007 0221 8007 0100 A007 0080 6007"
  379.         $"0040 1FE7 0020 021F 0010 0417 0008 0820"
  380.         $"0004 1040 0002 2880 0001 4500 0000 8200",
  381.         /* [2] */
  382.         $"0001 0400 0003 8E00 0007 DF00 000F FF80"
  383.         $"001F FFC0 003F FFE0 007F FFF0 00FF FFF8"
  384.         $"01FF FFFC 03FF FFFE 07FF FFFF 0FFF FFFF"
  385.         $"1FFF FFFF 3FFF FFFF 7FFF FFFF FFFF FFFF"
  386.         $"7FFF FFFF 3FFF FFFF 1FFF FFFF 0FFF FFFF"
  387.         $"07FF FFFF 03FF FFFF 01FF FFFF 00FF FFFF"
  388.         $"007F FFFF 003F FFFF 001F FFF7 000F FFE0"
  389.         $"0007 FFC0 0003 EF80 0001 C700 0000 8200"
  390.     }
  391. };
  392.  
  393. resource 'ICN#' (129, purgeable) {
  394.     {    /* array: 2 elements */
  395.         /* [1] */
  396.         $"0FFF FC00 0800 0600 0800 05C0 0800 04A0"
  397.         $"08F8 0450 0800 0428 081F E7F4 0800 0012"
  398.         $"081F E01F 0800 0011 0803 FC11 0800 001D"
  399.         $"081F 0011 0800 0011 081F FE11 0800 001D"
  400.         $"08FF E011 0800 0011 083C 0019 0800 0011"
  401.         $"080F C011 0800 001D 080F F811 0800 0011"
  402.         $"08FC 0019 0800 0011 083F E011 0800 001D"
  403.         $"0807 FE11 0800 0011 0800 0011 0FFF FFF1",
  404.         /* [2] */
  405.         $"0FFF FC00 0FFF FE00 0FFF FFC0 0FFF FFE0"
  406.         $"0FFF FFF0 0FFF FFF8 0FFF FFFC 0FFF FFFE"
  407.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  408.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  409.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  410.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  411.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  412.         $"0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF"
  413.     }
  414. };
  415.  
  416. resource 'BNDL' (128) {
  417.     'IAC1',
  418.     0,
  419.     {
  420.         'ICN#',
  421.         {
  422.             0, 128;
  423.             1, 129
  424.         },
  425.         'FREF',
  426.         {
  427.             0, 128;
  428.             1, 129
  429.         }
  430.     }
  431. };
  432.  
  433. resource 'FREF' (128, purgeable) {
  434.     'APPL',
  435.     0,
  436.     ""
  437. };
  438.  
  439. resource 'FREF' (129, purgeable) {
  440.     'TEXT',
  441.     1,
  442.     ""
  443. };
  444.  
  445. include $$Shell("hlxEtc") "editor.code";        /* make sure we get code segments in! */
  446.